.DO Externa! 
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;>>>>>>>>.^ >>>>>>>>>>> >>>>>>>>>>>>> 
; > 

;> Nodule: Initialization 

• 5. 

;> This module contains the routines that are responsible for 

;> Ini tial Izing widget. 

• > 

•> RESIDENT PROCEDURE RegTest 

;> RESIDENT PROCEDURE StackTest 

;> RESIDENT FUNCTION RamTest : BOOLEAN 

;> RESIDENT FUNCTION EpromTest : BOOLERN 

:> START PROCEDURE : Nain 



; > > > > >> >>>>>>>>>>>>>>>>>>>>>>>>>>> 





.LSTOFF 






FIN 






.DO 


Internal 




.LSTON 






.Paqe 






.FIN 






-Onu 


$0 


1 nt_vecU . 


.Dm 


vectoru 


\ fit_vec 1 . 


Til i 
.UM 


1 Inn * Jim < 

vector 1 


1.. X 11-..^. 
1 nt_Uec2 : 


m i 

.014 


Uector2 


lnt_Uec3: 


DW 


UectorS 


lnt_Uec4: 


.DM 


Uector4 


int_Uec5: 


.Dm 


vector 5 




Di 






Srp 


*Wrk_lo ; select I/O working register set 




c f r 


Sph ; initialize the stack 




Ld 


Sp I , *Staek_Top 




Ld 


PO iffl, *POJ03_Jidr+PO_47JOut+Stack_l n+P 1_fidr+l1eiR_Ext 




Ld 


1 For to f •no t-FnuenL+no t_ZTes tL+no t _RdHdrH+no t_Jber voRs t 




Ld 


P2!n, «P2 1_l n+P22_l n+P26_l n 




Ld 


! Port2, «Not JStartL+Bsy+28 J1ein+DrwL_Read 




Ld 


PSia, «B0_7JSer+B 1 J6_l o+B3_4_l dffl+B2J5_l o+Totem-Po 1 +Par JQf f 




Ld 


lrE;».H{BVTE. RamBonkO ; select raro bank 1 




Ld 






Lde 


gllrE, IrE 




Inc 


IrE ;set next Ram adr bit 




Ld 


lrF,»00 




Lde 


§!!rE, IrE 




Ld 


! rE ^ « . H 1 BVTE . $ 1000 ; save PwrF 1 g reqs temporar i 1 y 




Ld 


!rF,«.L0WB^<'TE. $1000 




Ld 


lrD^*4 ;inoMe 4 registers 




Ld 


!rC,«PwrFlgO 


StartJ_oop: 


Ldei 


§!!rE,§!rC 




DJnz 


!rD,Starta.oop 




.LSTOFF 






.DO 


Externa 1 
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;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
; > 

; > D i agnos tic: In terncj f Ram /Reg I s ter Tes t 

; > 

;> This test is used as both a diagnostic and a self test routine 

;> in the Widget controller. It is intended to check the internal 

;> functions of the 28 before allowing the controller to execute 

;> any code that could be potentially dangerous to the system. 

• y 

;> The test begins by checking working register set 0, registers 

;> '^f^,^f c»nd 7, then uses those registers to test the rest of the others. 

; > 

;> Test: fill Zeros/ fill Ones 

; > 

;> k := { Load Ua lue > 

;> For I := 1 To 2 Do 

;> Begin 

;> i := 120 {128 regs: -4 i /o ports. -4 regs used in test } 

;> j := 127 i Highest register address > 

■> Uhi le < i > > Do 

; > Beg i n 

j > RamReg C j 1 : = k 

;> J := J - 1 

;> i := i - 1 

;> End { Whi le } 

;> For i := 1 To 120 Do 

; > Beg I n 

;> If RaroRegt j J <> k Then HRLT 

:> J := j + 1 

; > End 

;> k := $FF { do all one's test next ) 

;> End { for > 

; > 

;>>>>>>>>>>>>>>>>>>>>>>>>>. V >>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 
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.FIH 

S tar t JRegTes t : 



CIr 


!r4 




Or 


Ir4, ?r4 


; quick check 


Jr 


Nz, .PC. 


j 1 oop here i f can ' t c 1 ear r4 


Ld 


IrS, !r4 


; boots trap a few registers 


Ld 


! r6, ! r4 


; /K 


Ld 


{r7j, !r4 


; 1 


Ld 


!r8, !r4 


; 1 


Rdd 


IrS, Ir4 


j < al 1 zeros > 


Rdd 


!r6, IrS 


; 1 


Add 


!r?j, !r6 




Rdd 


IrS, !r7 


■ M/ 


Jr 


fiz, .PC. 


;loop here If can't bootstrap 


Ld 


!r4,«$FF 


; quick check 


CP 


!r4.»$FF 




Jr 


Hz, .PC. 


; loop here if can't set r4 


Ld 


Ir5, !r4 


; bootstrap a fei» registers 



La 




; /\\ 


Ld 


!r7Jr4 


; 1 


Ld 


!r-8, !r4 


; { 


Rdd 


!r5, !r4 


1 c ci! ! ones ? 


Add 


!r6, Ir5 


; 1 


Add 


!r7, !r6 


1 

; 1 


Add 


!r8, !r7 


; M/ 


Add 


Ir8,«5 


- 5*t:-i> + 5 = 


Jr 


Mz, .PC. 


;loop here if can't bootstrap 


.Page 







>>>>>>>>>>>>>>>>>>>>>>> >>.v >>>>>>> 
> 

> Test the rest of the regis 

> 

>>>>>;->>>>>>>>>>>>>>>>>>>>>>>>>>> 



CIr Ir4 ;Load value 

Ld !r5,*RegLpTiniies 



RegLp 1 : 



Ld IrSj, !r4 ; remember load value 

Ld ! r6 , «RegCoun t-RegUsed- 1 JORegUsed 

Ld }r7,«H}RegAdr 



RegLp2 : Ld i ! r7 , 1 r4 ; beg i n I oad i ng ram 

Dec !r7 ; point to new reg 

Djnz !r6,RegLp2 

Ld ! r6 , *RegCount-RegUsed- I JORegUsed 



RegLp3 : I nc ! r7 

Ld !r4,§!r7 ;Read regs 

Cp !r4Jr8 

Jr- Nz.. . PC . ; Loop here if f a i I ure 

Djnz lr6,RegLp3 

Ld !r4,*$FF jset up for all ones test 

Djnz IrS^RegLpI 



.LSTOFF 

.DO External 

.LSTON 
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>>>>>>>>>>>>>>>>>>>>>>>.>>>>>>>>>> 
> 

> Diagnostic: Stack Test 

> 

> This test is used to test the 28 's push and pop capabilities 

> OS we! I as i fs ability to perforin calls and returns. 

> 

> The stack is set to internal, and the stack top is set to 

> location $80. The ensuing PUSH instruction first decrements the 

> stack pointer to $7Fj, and then store the contents of the 

> register being pushied In that location, fl pop Instruction 

> should first load the register with the contents pointed 

> to by the stack pointer and then increment the pointer. 
> 

> Registers Used: r4j r5 

> 



;>:>>>>>>>>>>>>>>>:>>>>.^ >>>>>>>>>>>> 



Stk_Test: 
Stk_Test1: 



StkJcilt: 
StkJRet : 



.LSTOFF 

.FIN 

.DO 

.LSTOH 

.Page 

.FIN 

CIr 
Ld 

Ld 
Jr 

Cp 
Jr 

Ld 
Push 
Ld 
•Jr 

Cp 
Jr 

Pop 

Cp 

Jr 

Ld 
Jr 

Cp 
Jr 

Cal I 
Ld 
Cp 
Jr 

Inc 

Ld 

Cp 

Jr 

Ld 

Ret 

Jr 

CIr 
Ld 



fnternal 



Sph 

Spl,«$80 

!r4.Sph 
Nz, -PC. 



Spl,«: 
Nz, .PC. 

!r4,«$flft 
!r4 

}r4.Sph 
Nz, .PC. 

Spl .#$7F 
Nz, .PC. 

!r4 

!r4,«$Ftfi 
Nz, .PC. 

lr4^Sph 
Hz, .PC. 

Spl,«$80 
Nz, .PC. 

Stk_Test 
lr4.Sp! 
lr4>$7E 
Hz, .PC. 

!r4 

}r5.e!r4 
!r5>StkTest 
Nz, .PC. 

ilr4,«Stk_Ret 

Stk_Halt 

Sph 

Spl,«Stack_Top 



; check the loading of Stack Pointer 

; Push /Pop $flfl 
; check for decrement of pointer 



; check for increment of pointer 

; check ca 1 1 capab i I i ty 

; check for doub i e dec on ca i i 



; point to low address byte 

; load low address byte 

; should be next instruction after call 



; check return capability 

;Halt if pc just got incremented 

: i n i t i a I i ze the stack 



.LSTOFF 

.DO External 

.LSTOH 

.Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

; > 

;> Initialize the i/o port control registers 

;> POlm — > 

;> Select Port 0, Bits 0:3 = fldr Bits 8:11 

;> Select Port 0, Bits 4:? = Output Ports 

':> Select Port 1 = fidr Bits 0:7 



> Select Extended Memory Timing 

> Select Internal Stack 
> 

> P2ffl — > 

> Select Port 2, Bit 2 = Input 

> Select Port 2, Bit 6 = Input 

> fill other- Port 2 Bits are outputs 
> 

> P3m — > 

> Select Port 3, Bit = Sio Data In 

> Select Port 3, Bit 1 = Tin 

> Select Port 3, Bit 2 = Input 

> Select Port 3, Bit 3 = Input 

> Select Port 3^ Bit 4 = Din- 

> Select Port 3, Bit 5 = Output 

> Select Port 3, Bit 6 = Tout 

> Select Port 3, Bit 7 = Sio Data Out 

> Select Sio Parity Off 

> Select Totem-Pole outputs for Port 2 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
LSTOFF 
.FIN 

.00 Internal 

.LSTON 
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.FIN 



Ld ! PO 1ffl_l mage, »POj03_fldr+PO_47_J0ut+Stack_l n+P IJildr 

Ld !PO1mJStriach,«POJ03J0ut+PO_47J0ut+Stack_ln+P1-Tri 

Ld POImJPOIm-lisage 

Ld P2ffl, »P2 1_} n+P22_l n+P26_l n 

Ld ! P3ro_l mage, «B0_7_JSer+B 1^_l o-f-B3_^4_l dm+B2J5_l o+Totem_Po I +Par jOf f 

Ld ! P3ffi_J5tnach, »B0_7_Ser+B 1J&_I o+B3_4_l o+B2 J5_l o+To tem_Po I +Par JOf f 

Ld P3m, !P3m_lmage 



Ld IDm_Mask,«$FF-Dffl 

Ld I Start-Mask, «$FF-No t^ tar tL 

Ld lpr,«$08 ;6roupfl := 0, fl>B>C 

CIr Imr ; disallow interrupts 

CIr Irq ;cl ear any pending interrupts 

Cir DiskStat 

CIr ExcptJStat ; Recovery Off 

CIr BIkStat 

CIr RdStat 

CIr RdErrCnt 

CIr Ut-Stat 

CIr WrErrCnt 

CIr Cache. Index 

Ld Seek_Type , *flccessjO f f se t 

Ld Da ta_Type , «User_Type 

CIr SeekCount 

CIr SeekCount+l 



Ld ! r E , « . H ! BVTE . R«i i _Ua I ue ; I oad RW I /PC cy I i nder ya I ue 

Ld !»-F,«.LOI4BVTE. Rwi.Uafue 

Ld !rC,«Hi_Ra»i_Req 

Ldci g!rC,§MrE 

Ldci §!rC,§»!rE 



Cir Tmr ; initialize timers 

Ld Pre1..*$3 ;l1od-64.. continues run 

Ld T1^»143 ; interrupt every 10 ras 

Or Tmr,«TlJCntEn + T1_Load" 

Ei jkludge for Z8 to do polling 

Di 

Ld lmr,*Tinier1 ;a Mow only Timer 1 Interrupts 

.LSTOFF 

.DO External 

.LSTON 
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>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Initial Port Assignments 

J. 

> Port — > 

> Bits 0:3 are set to fldr 8:11 via POlm 

> Bit 4 = Servo Reset Active 

> Bit 5 = Format Enable Inactive 

> Bit 6 = 28 Test Inactive 

> Bit 7 = Read Header Inactive 

> Port 1 — > 

> Bits 0:7 are set to Rdr 0:7 via POlm 

> 

> Port 2 — > 

> Bit = Start Inactive 

> Bit 1 = Ecc Error inactive 

> Bit 2 = don't care { inpjt ) 

> Bit 3 = Busy Active 

> Bit 4:5 = liselOJ: Z8 <— > Mem 

> Bit 6 = don't care { input ) 

> Bit 7 = Disk Read/Write: Read 

> Port 3 — > 

> Don't Care 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 
.FIN 

.DO Internal 

.LSTON 
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.FIN 

Ld } Porto, *HotJServoRst+Not_FmenL+Hot_ZTestL+NotJ=idHdrH 

Ld !Port2,«Not^tartL+Bsy+Z8J1em+Dr«jL_Read 

Srp «Wrk_Sys ; context s^Mtch 

Call Clr_BankSwi tch 

Or Excpt_Stat, «PwrRst ;as5ijme iJi power r-eset 

Ld \r2,^.H\&nE. $1000 ; check saved power flags 

Ld !r3,«.L0WBVTE. $1000 

Ld irE,«.HlBVTE. PassWord 

Ld !rF,«.LOMBVTE. Password 

Ld !r4.*4 ; check 4 bytes 



PwrRstJLp: Lde 



!r0,§nr2 ;get save byte 



Ldc !r1,§!!rE ;get a byte of password 

I new ! !r2 

I new ! ! rE 

Cp !rO, !r1 

Jr NzjPowerJOn 

D j nz ! r4 J, PwrRs t_Lp 

find ExcptJStat,#$FF-PwrRst 

Power JOn: Ld ScrJCntr,«.HlBVTE. 2000 

Ld Scr_Cntr+1,«.L0WBVTE. 2000 

Ld PwrFlg0j,*$F0 ; initialize power-on flags 

Ld PwrF!g1,»$78 

Ld PwrFlg2,«$3C: 

Ld PwrFlg3,«$1E 

Jp Main ;go to main routine 



.LSTOFF 

.00 External 
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;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

• > 

;> Function: External Ram Test 

; > 

;> This test is used as both a diagnostic and a self test routine 

;> in the Widget controller. It is intended to check the external ram 

;> of the controller before allowing the controller to execute 

;> any code that could be potentially dangerous to the system. 

; > 

;> Inputs: 

; > { none > 

• > 

; > Outputs : 

;> Externa I RamTest : BOOLERM { Zero flag false i f error > 

;> Test: fill Zeros/ fill Ones 

■ > 

;> k := $FF { Load Ualue > 

; ? For j : = 1 To 2 Do 

;> Begin 

; > Dec-JScrJCntr 

;> i := RamSIze 

;> RamPtr := RamSize - 1 

; > Mhi le i <> Do 

; > Beg i n 

;> RamC RamPtr 1 := k 

;> RamPtr := RamPtr- 1 

;> i := { - 1 

;> End 

; > I := RamSize 

;> Uhile i <> Do 

; > Beg in 

;> If < Rami RamPtr 1 = k > Then HALT 

;> RamPtr := RamPtr + 1 

;> i := f - 1 

;> End 

;> k := $00 { do all zero's test next > 

;> End 
- J. 

;> RamSize = 2048 

; > k = r5 



;> j = r-8 

; > i = r6,r7 

;> RaroPtr = rfl.rB 

; > scratch reg = r4 

; > 

;>>>>>>>>>>>>>>>>>>>>>>>:>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 
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.FIM 



RamTest ; 



RamLp 1 : 



RamLp2: 



Ld 
Ld 

Call 

Ld 
Ld 
Ld 
Ld 
Ld 

Lde 
Decw 
Djnz 
Djnz 



lr4,«$FF 

! r 8 J *RamLpT i mes 

DecJScrjCnt 



;Load value 



!r5^!r4 ; remember load value 

!r7.«.L0UBVTE. RamSize 
!r6.«.HIBVTE. RamSize 

!rB,«.LOMByTE. HiRamfidr ; Ini tial ize Ram Ptr 
!rfl,«.HIBVTE. i HiRarofldr+RamOf fset ) 



§! !rfl, !r4 
! Irfl 

!r7,RaffiLp2 
lr5,RamLp2 



; beg in loading ram 

; Point to next Ram location 



Ld 



!r6,«.HIBVTE. RamSize 



RaroLpS: I new ! Irfl ; Point to next Ram location to check 

Lde I r 4 ^ § ! ! r R ; Read r egs 

Cp !r4, !r5 

Jr Nz, Ramies tEx i t ; Loop here if failure 

D j nz ! r? J RamLp3 

Djnz !r6,RamLp3 

Ld !r4,«$i30 ;set up for all ones test 

Djnz IrS^RamLpI 
FksffiTestExi t: Ret 



.LSTOFF 

.00 External 

.LSTOH 

. Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

- J, 

;> Function: Eprom Test 
; > 

;> This test is used as both as diagnostic for the external eprom 

;> for the Midget Control I er and as a self test routine in the same 

;> units system firmware. 

;> 

;> The first location in the external eprom holds one byte that 

p is the check byte for that eprom. the check byte is calculated by 

; > add i ng then sh i f t i ng each byte in the eprom : 

; > 

; > I nputs : 

;> TopBank : BVTE { IrO } 

;> 

;> Outputs: 



> EpromTest : BOOLEftN { zero flag false if error } 
> 

> ft I gor i thm : 

> 

> BEGIN 

> FOR Both Halves of the Eprom Do 

> Sum := 

> Suro := Sum + 256*Eprom[ 1 

> FOR i := 1 TO MaxEpromflddress DO 

> DecJScrJCntr 

> Sum := Sum + Eproinf i 3 

> IF C Sum = y 

> THEN EpromTest := True 

> ELSE EpromTest := False 
> 

> {note that the check byte is stored in the first two locations 

> of the eprom > 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 



EpromTest: 



.LSTON 

.Page 

.FIN 



Ld !r4JrO ;make a loop counter out of highaddress 



EJLp: Ld IrO, !r4 ;get bank to test 

Surap !rO ;turn loop count back into highaddress 

Call LookUp_Rom ; select that bank 

CIr !r6 ;Sum := 

CIr !r? 

Ld !r8.«.HlBYTE. EpromSIze 

Ld lr9,«.L0WBVTE. EpromSize 

Ld !rC,«.HIBVTE. EpromOffset 

Ld !rD,«.L0l4BVTE. EpromOffset 

Ldc !rO,§!!rC ;get Eprom E J 

Com ! rO 

Add !r6, !rO ;Sum := Sum + 255*Eprom[ 1 

I new MrC ; point to Eprom C 1 3 

Dec !r9 ; account for Eprom I ] 

Ldc !rO,§! ?rC ; get Eprom [ 1 3 

Com !rO 

Add !r7, !rO ;Sum := Sum + EproroC 1 3 

I new n r5 ; do tujo * s comp I emen t ar i thme t i c 

Incw HrC ;point to EpromE 2 3 

Dec !r9 ; account for Eprom [ 13 

Eprom_Lp: Call DecJScrJCntr 

Ldc !r0^e!!rC ; get EpromE i 3 

I new ! !rC 

Add Ir?, IrO ;Sum := Sum ^ EpromE i 3 

fide !r6^*0 

Djnz !r9,Eprom_Lp 



Eprom_End : 



Djnz 
Jr 

Djnz 

Jp 



! r8, EpromJLp 
Nz^Eprom^nd 

!r4,E_Lp 

Bank_Ret 



.LSTOFF 

.DO External 

.LSTON 
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:>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



Procedure : lisUa i t 

This procedure is used as a software timing loop^ where 

the busy wait length is equal to .01 * InputUalue in seconds. 

< one unit wait = 10 ms ). 



Inputs: 



WaitLength : WORD { ! !r2 } 



Outputs: { none } 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIH 

.DO Internal 

.LSTON 
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.FIN 



MsWai t.- 
MsWait-l: 
MsUa i t_Lp : 



MsWai tJ3ec: 



Ld Ir0,«10 ; change LED every 100 ms 

find lrqj,*$FF-Tiiner 1 ; clear any pending timei 

Tm [rq^^Timerl ;u>a it for timer int 

Jr Z,risWaitJ_p 

Dec IrO 

Jr Nz.lisWa it-Dec 

Push Ir2 ;save counter 

Push !r3 

Cal I Invert-Led 

Pop fr3 

Pop !r2 

Ld Ir0,«10 

Decw ! !r2 ; count down a unit 

Jr Nz,MsWait_1 



Ret 



Dec_Scr JCn tr : Tro I r q j, *T i mer 1 ; y^a i t f or t i mer i n terrup t 

Jr Zj,Dec-jScr_End 

Call InvertJLed 

find lrqj,»$FF-Tlffier1 ;get rid of old interrupt 

Ld !rO,ScrJCntr ; check for already zero count 

Or lrO^ScrJCntr+1 

Jr Zj, Dec JScr_End 



Decw ScrJCntr 
Dec_Scr_End: Ret 



Clr-BankSwitch: Ld !r2,«.HIBVTE. BankReg 

Ld !r3,«.L0MBVTE. BankReg 

Ld !r-1,«7 ;clear 7 bits 

Clr-_B_Lp: Lde &! !r2, !r2 

Inc !r2 ;next bit's adr is $100 above last one 

Djnz !r1,C!r_B_Lp 

Ld !rO,Excpt_JStat ;cl ear all but LED state 

find !rO,«$FF-Led_riask 

Call Set-Led 

Ld !rO,«Rain1 
Call Set_RamBank 
Ret 

.LSTOFF 

.DO External 

.LSTON 
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>>>>>>;•>>>>;•>>>>>>>>>>>>>>>>>>>> 

> Start-Procedure: Main 

> 

> Inputs: { none ) 

> Outputs: { none ) 

> ft } gor i thro : 

> 

> BEGIN 

> SIfTst-fJesul t := { assume all tests fail ) 

> SIfTst-Resul t.RamTest := RamTest 

> S I f Ts t_Piesu 1 1 . Epr omTes t : = EpromTes t 

> Ini t_ExtStack 

> ZeroBlock< Readftrray > 

> ClearStatus 

> Load_PassMord< MBIkFence ) 

> Self Test 

> IF system passed self test 

> THEN 

> Recovery is turned ON 

> LoadJSprTb! 

> LoadJCache 

> IF SysteroCode THEN Scan 

> ELSE Recovery is turned OFF 

> C.lr_Bsy< Ini t_Response^ Not< Cmnd_Pendinq > 

> END 
> 

>>.>>>>>:>>>>>>>>>>>>>>>.>>>>:>>>>.>> 
LSTOFF 
.FIN 

.DO Internal 
.LSTON 
.Page 
.FIN 

>>>>>>>>>>>>>>>:>> >>>:>>>>>>>>>> > 
> 

> mm 



;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



Ma i n-Eproin : 



Hain_Sef fist: 



Ma i n_LdSpr : 



MainjSet_R: 



MainJC-ciche: 



MainJ-pl 



Ld SI fTst-Resul l,*$FF ; assume all failures at first 

Call RaroTest ;test external ram 

•Jr Nz ^ Ma I n_Eprom 

find S I f Ts t_Resu 1 1 , «$FF-Ram_Fa i I 

Ld !rO,«Eproin2 

Call EpromTest ;test external eprom bank 0^1 

Jr Nz.MainJSelfTst 

find SlfTst_f!esult,«$FF-Eprom_Fai I 

Call ExtStk-Uector ;init external stack 

Ld !rE.«.HIBYTE. MBIkFence 

Ld !rF,«.LOWBVTE. HBIkFence 

Call LdPw_Uector ;set write buffer fence 

Call ClrStat_Uector ; clear all status' 

Ca 1 1 SI f Ts t_Uec tor ; per f or m se I f tes t 

Tm S I f Tst_Resu 1 1 , «$FF-No^prTb I 

Jr 2,Main_Set_R 

find ExcptJStat^«$FF-Recovery ;THEM Recovery is off 

Jr Ha i n_Lp 1 

Or ExcptJStat,*Recovery ;ELSE it is ON 

Call SprTbl-Uector 

Call LCJJector 

Call IScanJJector 

Call Clr_BankSwitch 

Cal i Set_SeekHeeded 

Ld Wrk_l o+$fl, « I n i t_Besponse 

CIr l4rk_lo+$B ;Cmnd_Pending^ IBsy := False 

\ / ; in- line code, miist be folloiued by Clr_£sy 



LSTOFF 



